﻿
Public Module _comment
    Public Const name As String = "comment"
    Public Const start2 As Char = character.leftSlash
    Public Const name2 As Char = character.leftSlash

    Private Sub predictcb(ByVal line As String, ByRef output As String)
    End Sub

    Private Sub comment(ByVal script As String, ByRef output As String, ByVal name As String, _
                        Optional ByVal start As String = _predict.start)
        predict(script, output, name, AddressOf predictcb, start)
    End Sub

    Private Sub comment(ByVal script As String, ByRef output As String)
        comment(script, output, name)
        copy(script, output)
        comment(script, output, name2, start2)
    End Sub

    Public Sub comment(ByRef script As String)
        Dim output As String = Nothing
        comment(script, output)
        script = output
    End Sub
End Module
